home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-13 / unity331.zip / TPC.AWK < prev    next >
Text File  |  1991-09-19  |  425b  |  16 lines
  1. # Parses the output of TPC and returns an error message, if any:
  2. #     Filename, Line, Column, ErrorMessage
  3. # The compiler (TPC.EXE) must be run in the quiet mode "/Q"
  4. /: Error/ \
  5.     {
  6.     split($1,a,"(")
  7.     split(a[2],b,")")
  8.     a = sprintf("%1s, %1s,",a[1],b[1])
  9.     b = ""
  10.     for (i=2; i <= NF; i++) b = sprintf("%1s%1s ",b,$i)
  11.     getline
  12.     getline
  13.     a = a " " index($0,"^") ","
  14.     print a b
  15.     }
  16.